.DO External 

.LSTON 

.Page 

> 

> Module: Resictent 
> 

> This module contains ail the routines (. besides the ZS initialization 

> procedures > that must be resident within t^!e Z8. 
> 

> RESIDENT PROCEDURE BsyjClr< Merofldr : PTR { ! IWrk_lo+C > > 

> Response : BVTE { Wrk_lo+$fl } 

> CnindJ='ending : BIT { Urk_lo+$B/Bi t 7 } 

> IBsy : BIT { Wrk_lo+$B/BI t 6 } 

> > 

> RESIDENT PROCEDURE Ua itJCmd< CH>nd_Pend i ng : BOOLEAN { !rB/bit 7 } 

> Response : BVTE { !rfl > 

> IBsy : BOOLEAN { IrB/bit 6 } 

> tlemAdr : PTR { llrC > 

> ? 

RESIDENT PROCEDURE GetJ4r_Data< Response : BVTE { IrQ } ) 

> RESIDENT PROCEDURE fick_Read< Response ) 

RESIDENT FUNCTION Wr_Resident : Status : BVTE { !rO > 

> RESIDENT FUNCTION Fmt-Resident : Status : BVTE { !rO > 

> RESIDENT FUNCTION RdHdr_Resident : Status : BVTE { !r-0 > 

> RESIDENT FUNCTION RdJJesident : Status : BVTE { !rO > 

> RESIDENT SubFUNCTION StartJStNach 

> FUNCTION Sub3< fl, B : 3 BVTES { ?r0:2, lrC:E } > : 3 BVTES { !r0:2 } 

> FUNCTION fldd3< A, B : 3 BVTES { !r0.2. !rC:E > ) : 3 BVTES { Ir0:2 } 

> PROCEDURE Set-BaffiBank< Ram_Bank : BVTE { !rO ) > 

> PROCEDURE Set_Led< State : BIT { IrO/bit > > 

> FUNCTION LoadStatus : BVTE { IrO } 

> PROCEDURE SetStatus< StatusByte : BVTE { IrO > 

> Ualue : BVTE { !r1 ) 

> > 

> PROCEDURE SetJ3mtC Parent 1, Parent2 : BVTE { IrB, !rO > > 

> PROCEDURE CJr_Drot 

> FUNCTION For!natBlock< Paraent : BVTE { !r8 > > : 

> BOOLEAN 

> Status : BVTE { IrO > 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.00 External 

.LSTON 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: BsyJClr 



Inputs: 

Response 
Crond JPend i nq 
IBsy 
NemRdr 

Outputs: { none } 



BVTE { Urk_lo+$A > 
BIT { Wrk_lo+$B/Bit 7 > 
BIT { Wrl<._lo+$B/Bit 5 > 
PTR, { MrC ) 



> BEGIN 

> WHILE CND DO BEGIN END { busy uiait on CND } 

> Set up memory select: Apple < — > Nem 

> Memory_Rddress_Reg i ster := MemAdr 



; -• Reset BSY 

;> WHILE NOT( CMD > DO BEGIN END { busy wait on CND- } 

;> JUI1P< StartJCommand > { begin a new command } 

; > END 

;> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

-Page 

.FIN 

Clr_Bsy: 

Srp *Wrk_lo 

Ld ! For t2 , «No t_S tar tL+D i sk_riem+DriuL_Read+Bsy 

Lde @llrC,!rC 

Ld P3mJP3mJ5tNach 

find IPort3. .'DmJIask ;set DN/loPort to Loui 

Ld POlm, JPOImJStNach 

Ld !Port2,»Not_StartL+Disk_Neffl+Dr«>L_Read+Bsy ; toggle fiOE 

Tm !rB^*NultlUr ; check for mutl i -write command 

Jr Z,Clr_Bsy_Rd 

Ld ! Por t2, «Not_Star tL+flpp I eJlem 

Jr C I r_Bsy 1 

Clr_Bsy_Rd: Ld ! Por t2^«NotJS tar tL+flpp I e_l1em+Dra>L_Read 

C I r_Bsy 1 : Ld I rF , «Cmd ; 1 oad mask 

Ld !rC,«.HIBVTE. Crond_Ptr ;Neroftdr := Command Buffer 

Ld lrD,«.LOMBVTE. Cmnd-Ptr 



Bsy_Lp2: Tro IPort2JrF ;te£t for CMD active hi 

Jr Z,Bsy_Lp2 

; \ / ln_Line code^, done for SPEED! 

.LSTOFF 

.DO External 

.LSTON 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 
> Procedure: UaitJCmd 



> 


Inputs: 




> 


Cmnd-Pending 


BOOLEAN/ { IrB/bit 7 } 


> 


Response 


BVTE/ { !rfl > 


> 


IBsy 


BOOLEAN, { IrB/bit 6 > 


> 


Nemfidr 


PTR, { ifrC } 



Outputs: { none > 

fl I gor i thffi : 

BEGIN 
Se t up memory se I ec t : fipp I e < — > Z8 
UHILE NOT< CND ) 00 BEGIN END { busy malt on CND- } 
Ur iteC Response > to Apple 
Set BSV 



> WHILE CMD DO BEOIH HMD { busy wait on CMD > 

> Read<: flpp I e jResonse ) from Apple 

> IF < Apple-Response = $55 > 

> THEn 

> IF HOTC IBsy ) 

> THEH 

> Memory_flddressJ5egister := Memfidr 

> Reset BSV 

> WHILE NOT< CMD > DO BEGIN EMD { busy wait on CMD- } 

> Set up memory select: Z8 < — > Mem 

> IF Cmnd-Pendinq 

> THEM RETURM 

> ELSE JUMP< StartJCommand ) { begin a new command } 

> ELSE RBORK flpp I e_ Inter face-Exception, Cmnd_Pending, 

> Response, flpp I e_Response > 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO internal 

.LSTON 

. Page 

.FIN 

MaitJCmd: 

Ld POlm, IPOIm-lmage ; restore port to load adr 

Ld !Port2,«Not_StartL+DiskJ1em+DrwL_Read 

Lde §l!rC, !rC ;set external memory address 

Wq i t J::md t : Ld ! Por t2, «Not_S tar tL+Z8-flpp I e+DrwL-Read 

Ld PO 1m, «POJ03_fldr+PO_47_Out+Stack_! n+P 1_0ut 

Ld IPortl.lrfl ; Apple gets Response 

Ld ! Por t2, «No t JS tar tL+Z8-App I e+Dru>L_Read+Bsy 

Ld lrF,«Cmd 

Ld lr€.#flpl_flck ;get ready for response 

Ld lrD",*IBsy 

Cmd_Lp2: Tm !Port2, !rF ; test for CMD inactive low 

Jr Nz,CmdlLp2 

;Make Port! an input 

Ld PO Im, «POJ03-fidr+P0_47_0ut+S tack_l n+P 1_l n 

Ld !Port2,«NotJStartL+Disk-Meffi+DrwL-Read+Bsy ; strobe ROE 

Ld !Port2,«Not.^tartL+Z8-fipple+DrwL-Read+Bsy ; strobe ROE 

Cp !Port1,lrE 
Jr N2,Cmd-NotRck 

Cmd_TstBsy: Tm !rB, IrD ; test IBsy 

Jr Z, No- IBsy 

;get back to System access 

Cffld-Leaue: Ld POlm, IPO 1ffi_l mage 

Ld !Port2,«Not-StartL+Bsy+Z8-Mem+DrwL_Read 

Ld P3m, !P3m_lmage 

Srp ^UrkJSys 

Ret .resume command 



;riEM <— > Hostdiir) 



; change DH to output 



No_!Bsy: 



Cind_Lp3 : 



Ld 
find 

Ld 

Ld 
Tm 
Jr 

Ld 
Ld 
Ld 
Tm 
Jp 
Ret 



P3m, !P3m_Striach 

[Ports, IDmJIask ;set DM/ioPort low 



I Por t2 , «No t_S tar tL+flpp I e_Meffl 

;test for CUD act i Me hi 



!rF,«Cmd 

!Port2.lrF 

Z,CindJLp3 



POlm, iPOIm-lmage 

! Por t2, «Not_jStartL+28J1em+DrwL_Read 

P3m, IP3m_lmage 

I rB, *Cmnd_Pend i ng 

Z,Start_Uector 



CmdJio tfick : Ld } rF , ! For 1 1 

Ld POImJPOIm-lmage 

Ld P3m, IP3m_lffiags 

Ld } Por t2, *Not^tar tL+Bsy+Z8_neffi+Dri.uL_Bead 

Srp #Mrk_Sys 

Cp Wrk_!o+$F,«Free_Proc ; check for Freeing up the bus 
Jp Z f FreeJJec tor 

Mt_£md_Nak: Push l4rk_Io+$F 

Call CIrNorroStat 

CIr IrO ;byte 

Ld !r1,«BadJ55 
Cat ! SetStatus 

Pop !r9 
Cal I fibort 

.LSTOFF 

.DO External 

.LSTOM 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 
> RESIDENT ROUTINE { source code is in Resident.fissem > 



Procedure: GetJMrJData { Get Write Data from Host > 
Inputs: 



Response 



BVTE, { Mrk-.lo+$fl > 



> BEGIN 

> WaitJCi»d< CoiRinand-Pending, Response. NotlBsy, MBufferl > 

> WaitJCfRd< Command-Pending/ EndWriteResponse, iBsy, MBuffer-l > 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 



.Fm 

Get_WrJ3ata: 

Srp »Wrk_lo 

Ld }rB/*Cmnd-Pendinq ; Cmnd_Pend i nq := True, IBsy := False 

Ld !rC,«.HIBVTE. MBufferl 

Ld !rD,«.LOUBVTE. NBuf far 1 

Call MaltJCind 

Ld ! rfl . *Erid_J«lr_Response 

Ld ! rB J, »Cfflnd_Pend i ng+ 1 Bsy ; Cmnd J=*end i ng : = True 
Call Ua it JCmd 

Srp *l-lrk_Sys 
Ret 

.LSTOFF 

.00 External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> RESIDENT ROUTINE { source code is in Resident.flssem > 

> Procedure; flck_Bead { Acknowledge read command, set BSY } 
> 

> Inputs: 

> Response : BVTE { Wrk_}o+$fi > 
> 

> Cfutputs; { none } 



> BEGIN 




> WaitJCmd( Command_Pending, Response. Bsy, x ) 


> END 

•3. 




^ 

»»>»»>>>>»>>»»> 


»>>>>> 


.LSTOFF 




.FIN 




.00 


internal 


.LSTON 




. Page 




.FIN 




ckJniead : 

Srp 


«Wrk_ lo 


Ld 


1 rB, «Cfflnd_Pend i ng+ 1 Bsy 


Call 


Wa}t_Cmd1 


Srp 


«Wrk_Sys 


Ret 





.LSTOFF 

.DO External 

.LSTON 

-Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: l4r_Resident {Write Resident } 
>■ 

> This function exists primarily because the architecture of the 

> Widget Controller prevents the Z8 from executing Instructions 



> from externa t program memory while thr state machine Is running. 
> 

> Inputs: { none } 



• > 



;> Outputs: 

;> Status: BYTE { !rO } 

;> 

; > ft I gor i thm : 



; > 


BEGIN 


• > 


Mse}0:1 := Disk < — > Mem 


; > 


Set-up external ram address counter for WRITE 


; > 


DiskRU := Write 


;> 


RdHdrH := False 


; > 


IF < Cylinder > RWlJCylinder > 


; > 


THEN 


; > 


PC := True 


; > 


RWl := True 


; > 


ELSE 


; > 


PC := False 


; > 


RUl := False 


;> 


Star tStateMach i ne 


;> 


END 



.LSTOFF 

.FIN 

.DO Interna! 

.LSTON 

-Page 

.FIN 



MrJ^esident: Srp *Wrk_lo 

Ld ! Por t2, »Not JStar tL+Bsy+D i sk_l1em 

Ld lrE,Hi_Rwi_Reg 

Ld !fH^,Lo_Rwi_Reg 

Sub I r F ^ Cy I ! nder + 1 ; check for < > RW I JCy I i nder > 

Sbc I rE, Cylinder 

Jr Lt,WPC_Else 

Ld !rR,»$7F ;bfts inactive 

Jr WPC_End 

WPCEIse: Ld lrft,»$?F-RWI-PC 

WPC_End: Jr Rd_Res2 

.LSTOFF 

.00 External 
.LSTON 
.Page 
: >:>:>>:>>>>:>>>>>.>>>>>>>>>>>>>>>>>>> 



> 



Function: Fmt_Resident { Format Resident } 



: > 



;> This function exists primarily because the ar chi tec ture of the 

Widget Controller prevents the Z8 from executing Instnjctions 

from external p-^ogram memory ujhl le thr state machine is running. 

Irputs: { none ) 



Outputs: 

Status: BVTE { !rO > 



> 


fligorithm: 


> 


BEGIN 


> 


MselO: 1 := Disk <—> Mem 


> 


Set-up external ram address counter for FORMRT 


> 


DiskRW := Write 


> 


RdHdrH := True 


> 


IF < Cylinder > RWlJCq Under ) 


> 


THEN 


> 


PC := True 


Jw 


RWJ := True 


> 


ELSE 


> 


PC := False 


> 


RWI := False 


> 


StartStateMachine 


> 


END 



>>>>>>>>>>>>>>:>>>>>>>>>:>:>>>>:>>:>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
-Paqe 
.Ffii 



Fmt_Resident: Srp *Wrk_!o 

Ld ! Por t2, *Not^tar tL+Bsy+D i sk_riem 

Ld ! rE ,. H i JRw i _Reg 

Ld !rF,Lo_Ryj|_Reg 

Sub lrF",Cylinder+t ; check for C > RWI JCyl inder > 

Sbc IrE.Cy Under 

Jr Lt,FPC_Else 

Ld !rfl,*$FF ;bjts InactlMe 
Jr FPCJEnd 

FPC_Else: Ld !rfl,»$FF-RWI-PC 

FPC_End: Ld !rE.«.HIBVTE. Forroatftrray 

Ld !rF,«.LOWBVTE. Forma tflrray 

Jr StartJStMach 

.LSTOFF 

.DO External 
.LSTON 
.Page 
?■ > > > >>>>>>>>>>>>>>>>>>>>>>>>>> > 

Function: RdHdr_Resldent { Read Header Resident > 

This function exists primari ly because the architecture of the 
Widget Controller preuents the Z8 from executing instructions 
from external program memory uuhile thr state machine is running. 

Inputs: { none } 



> Outputs: 

> Status: BVTE { IrO > 
> 

> fllgorithm: 



;> BEGIN 




;> Mse!0:1 := Disk 


< — > Mem 


:> Set-up external 


ram address counter for READ 


;> DiskRW := Read 




;> RdHdrH := True 




;> RMI := False 




;> PC := False 




; > Star tStatetlach i ne 


;> END 




; > 




;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


.LSTOFF 




.FIN 




.DO 


Internal 


.LSTON 




.Page 




.FIN 




RdHdrJ=!esident: 




Srp 


«Wrk_lo 


Ld 


!rR,»$FF ;blts inactive 


Jr 


Rd_Res1 


.LSTOFF 




.DO 


E:jfternal 


.LSTON 




.Page 




•>>>»»>»>»■>>■?>•>>»>} 


>>>>>>>>> 



> Function: Rd_Besident { Read Resident } 

> This function exists primarily because the architecture of the 

> Midget Controller prevents the 28 from executing instructions 

> from external program memory while thr state machine is running. 
> 

> Inputs: { none ) 
> 

> Outputs : 

> Status: BS^TE { IrO > 
> 

> filgorithm: 
> 

> BEGIN 

> Nse}0:1 := Disk <—> Mem 

> Set-up external ram address counter for READ 

> DiskRM := Read 

> RdHdrH := False 

> PC := False 

> RWI := False 

> StartStateMachine 

> END 
> 

.LSTOFF 
.FIN 



RdJiesident: 



.DO Internal 

.LSTON 

-Paqe 

.F\n 



Srp *l4rk_lo 

Ld ?rfl,*$?F ;blts inactive 



Rd_Rest: Ld !Port2..«NotJStartL+Bsy+DiskJ1ein+DrwL_Read 

Rd_Res2: Ld !rE,«.HIBVTE. ReadRrray 
Ld !rF,«.LOMBVTE. Readflrray 

\ / ; I n-L i ne code for Speed 1 1 
.LSTOFF 

.DO External 
.LSTON 
.Page 
>>>.T> >>>>>>>>>>>>>>>>>>>>>> >>>>>> 



SubFunction: Start_StMach { StartStatehachine } 



> This is a routine that is shared by al I the resident state machine 

> routines and exists primarily for the purpose of saving space. It's 

> function is to complete the set-up for the state machine and then 

> start it up and wait for it to finish. 
J. 

> BEGIN 

> Z8 Port 3, Bit 4 := { instead of DN it is an I/O port } 

> 28 Port 1 := Input { keep Z8 from conflicting with Disk data } 

> SectorsRead := 2 * HumberOf Sec tors 

> WHILE SectorMark DO BEGIN END 

> StartL := True 

> WHILE NOT( SectorDnL > RND ( SectorsRead <> > DO 

> BEGIN 

> IF SectorMark 

> THEN 

> SectorsRead := SectorsRead - 1 

> WHILE SectorHark DO BEGIN END 

> END 

> Z8 Port 3, Bit 4 := DN 

> ZS Port 1 := Rddress/Data 

> MselOil := ZS < — > Nem 

> Status := Status_Port 

> IF EccErr 

> THEN Status. CrcErr or := True 

> StartL := False 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .^ > > 

.LSTOFF 
.FIN 

.00 Internal 
.LSTON 
.Page 
FIN 

StartJBtflach: 

Lde §!!rE. IrE jset buffer address 

Ld P3mJP3m_Striach 



find 



•Ports, !Dm_f1ask ;set Dtt/IoPort Low 



StJf^es_1 



Ld 
Ld 

Tib 
Jr 

find 

Ld 
Ld 
Ld 
Ld 
Ld 
Ccili 



POlm, JPOImJStllach 
! Porto, Irfi 

1 Ports, *Sec tor Mark ; test for sector mark 
N2,St_Res_1 



!Port2. ! Start Jiask 



; start state machine 



!rfl,«Hot^tartL 

!rB,«Not_£ccErr 

!rE,*SectDnL ; load mask 

! rP, *Sectorl1ark 

MrkJSys+$fi,*< NbrSctrs+2 > ; timeout after 21 sectors 

Set_Drot 



St_ResJ2: 



St_Res_25; 



St_ResJ3: 



St_Bes_4: 



Tm 
Jr 
Dec 
Jr- 

Tm 
Jr 

Tern 
Jr 
Tern 
Jr 

Ld 
Ld 
Ld 

Ld 
Ld 
Lde 



!Port3, IrF 
2,St_Res_3 
WrkJSys+$R 
2,St_fles_4 



; count sector marks 



! Ports, IrF 

Nz,St_Res_2J5 ,wait for mark to go away 

I Por tS , ! r E ;ma\ t for s ta te mach i ne to f i n i sh 

2,St_Res_2 

IPwtS, IrE ; sample it twice 

2,St_Res_2 

POlm, !P01m_lmage 

I Por t2, «Bsy+Z8_i1em+DrujL_Read 

PSm, !P3m_lmage 

I rC, « . H I BVTE . StatusPor t 
I r D , » . LOWBVTE . S ta tusPor t 
IrF.gfJrC 



Res-Sthach: 



Tm 
Jr 

Or 
Di 



!Port2, !rB 
Z,Res^ccErr 

!Port2, Irfl 



; reset state machine 
•.clear the dead man timer 



Srp 

Ld 

Ret 



«UrkJSy£ 

lrO,Wrk_lo+$F ; re turn StMach status 



Res_EccErr: Tm DiskStat,«MrJOp 

Jr Nz,Res^triach 

find !rF,«$FF-MrtMyldL ;lf ECC error 

Jr ResJStMach 



.LSTOFF 

.DO External 
.LSTm 
. Page 
;>>>>>>>>>>>>>>>> > > >>>>>> > 

;> 

;> Function: SubS, flddS 

:> 

':> { RESIDENT ROUTlNESf ! } 



> 

> These functions perforin the following 24 bit arithmetic operations 
> 

> Sub3: R <— R - B 

> fldd3: fl <— fl + B 
> 

> Inputs: 

> ft: 3 BVTES { IrO, \r\, !r2 } 

> B: 3 BVTES { !rC, IrD, ?rE > 
> 

> Outputs: 

> R: 3 BVTES { !rO, \r], Ir2 ) 
)■ 

>>>>>>>>:>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 

.Fin 



Sub:: 



Sub !r2JrE 

Sbc IrlJrD 

Sbc IrO.lrC 
Ret 



Rdd; 



fidd Ir2, IrE 

fldc frlJrO 

fldc IrOJrC 

Ret 

.LSTOFF 

.00 Externa! 

.LSTON 

. Page 
>>>>:>>>>>>>:>>>>:>>>>:>>>>>>>>>>>>>> 
> 

> Procedure: Set-RamBank 
> 

> This procedure activates the 2k bank of ram that is indicated by 

> the Input parameter. 
> 

> Inputs: 

> RaiR_Bank : BVTE { !rO } 

> Outputs: { none ) 
> 

> ftlgorithm: 
'? 

> BEGIN 

> IF < Ram-Bank > 3 > THEN Abort 

> deselect all ram bits 

> select the r-am bit pointed to by Ram_Bank 

> END 

> • 
>>>>>>>>>>>>>>>>:*>>>>>>>>>>>>>:>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTOH 



Set_Ra!nBank 



Set_RBJStart: 



Roiffi-Tab 1 e : 



.Page 
.FIH 

Cp 
Jr 

Call 

Ld 

Ld 

Rl 

Rdd 

fldc 

Ldc 

I new 

Ldc 

Ld 

Ld 

Lde 

Inc 

Ld 

Lde 

Ret 

.DB 
.DB 
.DB 
.DB 



!r0,»4 
Ll,Sel_RBjStart 

Abort 

?r2,«.HIBVTE. Ram_Table 

!r3,«.LOI4BVTE. Raffi_Table 

! rO ; ffiu 1 1 i p I y j ndex by 2 

! r 3 , ! rO ; i ndex i n to tab I e 

!r2.«0 

?r1>!lr2 

!!r2 

Ir0,§!fr2 

!r2,«.H{BVTE. RamBankO ;set the adr bits 

!r3. !rO 

?!!f%!r3 

!r-2 

!r3Jr1 

gl!r2Jr3 



0.0 -.adr 13 

0,1 ;adr 13 

1.0 ;adr 13 

tj ;Qdr 13 



= 0. adr 12 
= 0. adr 12 
= 1, Qdr 12 
= 1. adr 12 



= 
= 1 
= 
= 1 



.LSTOFF 

.DO External 
.LSTON 
• Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Procedure: Set_Led 

This procedure changes the state of the cc«ntroMer LED. The 
state is determined by the value of State < if State is Odd 
then the Led is lit, otherwise it is turned off >. 

Inputs: 

State : BIT { !rO/bit > 

Outputs: { none ) 

fl I gor i thro : 

BEGIN 

Led I State ] := State 

Bank- 1 nsage . Led : = S ta te 
END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 



Set_Led; 



find ExcptjStat,»$FF-Led_Stat 

Or ExcptJStatJrO 

Ld !»-2.«.HIBVTE. Led 

Ld !r3, !rO 
lal 

Xor !rO,«$FF-LedJ1ask ; invert only the Led bit 

Jr SetJ_ed 

Led_14alt: Ld !r2,«.H{ByTE Ret 

.LSTOFF 

DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>> Inputs: { none } 
> 

> Outputs: 

> Loads tatus : BVTE { !rO } 
> 

:>>:>:> :3- >>:>>>>>:>>>>>:>:»>>>:>>>>>:>>:>:>> > 
.LSTOFF 

.LSTOH 
.Page 
.FIN 

Loads tatus: 

Ld !r2,«.HIBVTE. StatusJPort 

Ld !r3 .LSTOFF 

.00 External 

.LSTON 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
J. 

> Procedure: Se is used to set a particular bit or bits 

> within a specific byte of standard status. 
> 

> Inputs: 

> StatusByte : BYTE { !rO > 

> END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.Fin 

.00 Internal 
.LSTOHPaqe 
.FIN 

Sets tatus: 

Ld !r2.«.HIBVTE. CStatusO 

Ld ?r3,a.L0MBVTE. CStatusO 

Rdd /in 

Lde §l!r2.!r0 

Ret 

.LSTOFF 

.DO External 
.LSTO 
-Page 
y>> >>>>>>>>>>>>>>>>>>>>>> >>>>>> 

; > 

:> Procedure: Set_Dmt { SetDead?1anT i mer ) 



SetJDmt: 



> This procedure sets the DeadhanT i mer 

> occurs. The SetJDimt routine also initializes the DeadManCounter 

> as well as storing aivay information concerning the process<s> 

> that started the Dmt. 

> Inputs: { none } 
> 

> Outputs: { none ) 

> Algorithm : 
> 

> BEGin 

> Disable Interrupts { enter i Par en t2 

> DeadManCounter := { assume timer interrupts every 10 msecs } 

> Enable Interrupts { leaving critical section } 

> END 
> 

; erna I 

.LSTON 

.Page 

.FIH 

Di ; enter c 

find lrqj*$FF-Timer1 ; clear old eyents 
Ei 
Ret 

.LSTOFF 
■ Page 
>>>>>>>>>>>>:>>>:>>>>>>>>>:>>>>>> 

> Procedure: Clr_Dmt { C I earDeadtlanT i mer } 
> 

> This procedure clears the DeadManT i mer bthe DeadManTi mer Counter. This routine also 

> enables the normal Timer. 
> 

> Inputs : none 

> Outputs : none 
> 

> ftlgorithm : 
>;:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

. Page 

.FIM 



CIrJDfflt: 



D i ; en ter cr 1 1 1 ca I sec 1 1 on 

Ret 



LSTOFF 



Externa I 



.LSTON 

.Page 
>>>>>>>>>> :^ >>:>>>>>>>>:>>>:»>>>>>>:> > 
> 

> Procedure Fragment: Chky for debugging purposes. I wanted a place in the 

> code anhiere the DM could be halted AFTER the host had released 

> the control ler as a process. 



